home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / risc_src.lha / risc_sources / xlib / xvisualinfo.t < prev    next >
Text File  |  1990-06-01  |  2KB  |  36 lines
  1. (herald xvisualinfo (env tsys (xlib interface)))
  2. (DEFINE (MAKE-XVISUALINFO) (CONS 'XVISUALINFOP (MAKE-BYTEV 40)))
  3. (DEFINE (XVISUALINFO-VISUAL X)
  4.         ((LAMBDA (X Y) (CONS 'VISUALP (MREF-POINTER X Y)))
  5.          (CHK-XVISUALINFOP X)
  6.          0))
  7. (DEFINE (XVISUALINFO-VISUAL! X Y)
  8.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-VISUALP Z)))
  9.          (CHK-XVISUALINFOP X)
  10.          0
  11.          Y))
  12. (DEFINE (XVISUALINFO-VISUALID X) (MREF-INTEGER (CHK-XVISUALINFOP X) 4))
  13. (DEFINE (XVISUALINFO-VISUALID! X Y)
  14.         (SET-MREF-INTEGER! (CHK-XVISUALINFOP X) 4 Y))
  15. (DEFINE (XVISUALINFO-SCREEN X) (MREF-INTEGER (CHK-XVISUALINFOP X) 8))
  16. (DEFINE (XVISUALINFO-SCREEN! X Y) (SET-MREF-INTEGER! (CHK-XVISUALINFOP X) 8 Y))
  17. (DEFINE (XVISUALINFO-DEPTH X) (MREF-INTEGER (CHK-XVISUALINFOP X) 12))
  18. (DEFINE (XVISUALINFO-DEPTH! X Y) (SET-MREF-INTEGER! (CHK-XVISUALINFOP X) 12 Y))
  19. (DEFINE (XVISUALINFO-CLASS X) (MREF-INTEGER (CHK-XVISUALINFOP X) 16))
  20. (DEFINE (XVISUALINFO-CLASS! X Y) (SET-MREF-INTEGER! (CHK-XVISUALINFOP X) 16 Y))
  21. (DEFINE (XVISUALINFO-RED_MASK X) (MREF-INTEGER (CHK-XVISUALINFOP X) 20))
  22. (DEFINE (XVISUALINFO-RED_MASK! X Y)
  23.         (SET-MREF-INTEGER! (CHK-XVISUALINFOP X) 20 Y))
  24. (DEFINE (XVISUALINFO-GREEN_MASK X) (MREF-INTEGER (CHK-XVISUALINFOP X) 24))
  25. (DEFINE (XVISUALINFO-GREEN_MASK! X Y)
  26.         (SET-MREF-INTEGER! (CHK-XVISUALINFOP X) 24 Y))
  27. (DEFINE (XVISUALINFO-BLUE_MASK X) (MREF-INTEGER (CHK-XVISUALINFOP X) 28))
  28. (DEFINE (XVISUALINFO-BLUE_MASK! X Y)
  29.         (SET-MREF-INTEGER! (CHK-XVISUALINFOP X) 28 Y))
  30. (DEFINE (XVISUALINFO-COLORMAP_SIZE X) (MREF-INTEGER (CHK-XVISUALINFOP X) 32))
  31. (DEFINE (XVISUALINFO-COLORMAP_SIZE! X Y)
  32.         (SET-MREF-INTEGER! (CHK-XVISUALINFOP X) 32 Y))
  33. (DEFINE (XVISUALINFO-BITS_PER_RGB X) (MREF-INTEGER (CHK-XVISUALINFOP X) 36))
  34. (DEFINE (XVISUALINFO-BITS_PER_RGB! X Y)
  35.         (SET-MREF-INTEGER! (CHK-XVISUALINFOP X) 36 Y))
  36.